home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 November
/
1988-11.d64
/
easy loadir
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
67 lines
10 rem copyright 1988 compute! publications -- all rights reserved
15 poke 646,14:poke 53280,14:poke53281,6
20 print"[147]please wait:"
30 print""tab(14)"easy loadir"
40 print" copyright 1988"
45 print" compute! publications, inc."
50 print""tab(11)"all rights reserved"
60 rem read and store machine language data
70 forad=52736to53152:readdt:pokead,dt:x=x+dt:ifad=52803thenx=x-dt
80 printchr$(19);tab(13);right$("00"+mid$(str$(53152-ad),2),3)
90 nextad:ifx<>45626thenprint"data statement error.":stop
100 rem install program wedge and end
110 sys52736:end
120 rem machine language data
130 data 238,33,208,173,0,3,201,50
140 data 208,7,173,1,3,201,206,240
150 data 22,173,0,3,141,62,206,173
160 data 1,3,141,63,206,169,50,141
170 data 0,3,169,206,141,1,3,169
180 data 45,160,207,32,30,171,206,33
190 data 208,96,224,11,208,7,32,121
200 data 0,201,36,240,3,76,139,227
210 data 104,104,162,8,32,115,0,240
220 data 16,32,158,183,224,8,240,9
230 data 224,9,240,5,162,14,76,55
240 data 164,142,161,207,32,98,206,76
250 data 6,169,169,2,162,159,160,207
260 data 32,189,255,169,1,174,161,207
270 data 160,0,32,186,255,32,192,255
280 data 32,183,255,201,0,208,77,162
290 data 1,32,198,255,32,228,255,32
300 data 228,255,169,13,32,210,255,165
310 data 145,16,57,32,204,255,32,228
320 data 255,201,32,208,7,32,228,255
330 data 201,0,240,249,169,1,141,162
340 data 207,162,145,160,207,32,26,207
350 data 162,1,32,198,255,32,228,255
360 data 32,228,255,32,228,255,133,57
370 data 32,228,255,133,58,32,183,255
380 data 201,0,240,18,169,255,133,58
390 data 32,204,255,169,13,32,210,255
400 data 169,1,32,195,255,96,32,201
410 data 189,162,149,160,207,32,26,207
420 data 32,228,255,201,0,240,155,72
430 data 32,210,255,104,201,34,208,240
440 data 169,0,133,212,206,162,207,240
450 data 231,169,0,133,199,169,48,13
460 data 161,207,141,154,207,162,153,160
470 data 207,32,26,207,32,228,255,76
480 data 232,206,173,134,2,72,173,33
490 data 208,141,134,2,138,32,30,171
500 data 104,141,134,2,96,147,32,32
510 data 32,32,32,32,32,32,32,32
520 data 32,32,32,32,69,65,83,89
530 data 32,76,79,65,18,68,73,82
540 data 13,13,32,32,32,67,79,80
550 data 89,82,73,71,72,84,32,49
560 data 57,56,56,32,67,79,77,80
570 data 85,84,69,33,32,80,85,66
580 data 76,46,44,32,73,78,67,46
590 data 13,32,32,32,32,32,32,32
600 data 32,32,32,65,76,76,32,82
610 data 73,71,72,84,83,32,82,69
620 data 83,69,82,86,69,68,13,13
630 data 0,32,68,193,0,58,76,207
640 data 0,44,56,44,49,58,0,36,48